Ch 9.htm

назад | содержание | вперед

Работа на уровне данных

Запись данных в файл выполняется с помощью методов write и WriteLine класса TextStream. Если необходимо добавить в файл пустую строку, можно использовать метод WriteBlankLines.

Метод WriteLine отличается от write тем, что первый добавляет в записываемую строку метку конца строки.

Корректная запись данных в файл предполагает выполнение этой операции в три этапа:

1. Открытие файла.

2. Запись данных одним из методов.

3. Закрытие файла.

В программном коде показано применение этих методов для записи данных в файл:

Dim NewFSO, txtNewFile

Set NewFSO = CreateObject("Scripting.FileSystemObject")

Set txtNewFile = NewFSO.CreateTextFile("c:\IniFile.ini". True)

' Запись строки

txtNewFile.Write ("Файл инициализации приложения")

' Запись

txtNewFile.WriteBlankLines (2)

' Запись строки с меткой конца строки

txtNewFile.WriteLine ("Parameter = 70")

txtNewFile.Close

Чтение данных из файла выполняется по блокам, построчно или целиком.

для этого используются соответственно методы Read, ReadLine и ReadAll.

Работу этих методов можно изучить, дополнив предыдущий текст следующим кодом:

' Чтение из файла

Dim File As File

Dim sFileCont As String

Set File = NewFSO.GetFile("c:\IniFile.ini")

Set txtNewFile = File.OpenAsTextStream(ForReading)

sFileCont = txtNewFile.Read(40) I

MsgBox sFileCont

sFileCont = txtNewFile.ReadLine

MsgBox sFileCont

txtNewFile.Close

> Замечание

> При использовании метода ReadAll необходимо помнить, что для чтения больших файлов требуются соответствующие ресурсы памяти.

назад | содержание | вперед